home *** CD-ROM | disk | FTP | other *** search
/ Data Base of the Video Yearbook 1995 / Data Base of the Video Yearbook 1995 - Disc 1.iso / cosmos / aiuew.dir / 00013.ls < prev    next >
Encoding:
Text File  |  1995-12-21  |  4.0 KB  |  88 lines
  1. on displaytaidataj
  2.   global taidataj, mydatebase, tkazu
  3.   set tkazu to the number of items in taidataj
  4.   set x to item 1 of taidataj
  5.   set xkazu to the number of items in x
  6.   repeat with n = 2 to tkazu - 1
  7.     set xkazu to the number of items in x
  8.     repeat with m = 1 to xkazu
  9.       if item 11 of line value(item m of x) of mydatebase <> item 11 of line value(item n of taidataj) of mydatebase then
  10.         set hata to 0
  11.         repeat with i = 1 to xkazu
  12.           if item 11 of line value(item n of taidataj) of mydatebase = item 11 of line value(item i of x) of mydatebase then
  13.             set hata to 1
  14.           end if
  15.         end repeat
  16.         if hata = 0 then
  17.           put "," & item n of taidataj after x
  18.         end if
  19.         exit repeat
  20.         next repeat
  21.       end if
  22.       exit repeat
  23.     end repeat
  24.   end repeat
  25.   set xkazu2 to the number of items in x
  26.   set tkazu2 to the number of items in taidataj
  27.   if tkazu2 = 1 then
  28.   else
  29.     if xkazu2 = 1 then
  30.       set flag to 1
  31.       repeat with m = 1 to tkazu2 - 1
  32.         if item 11 of line value(item 1 of x) of mydatebase = item 11 of line value(item m of taidataj) of mydatebase then
  33.           if flag = 1 then
  34.             set tsumeawase to item 11 of line value(item m of taidataj) of mydatebase
  35.             put "  " & item 8 of line value(item m of taidataj) of mydatebase after tsumeawase
  36.             put "/" & item 9 of line value(item m of taidataj) of mydatebase after tsumeawase
  37.             put "  " & item 1 of line value(item m of taidataj) of mydatebase after tsumeawase
  38.             put "  " & item 2 of line value(item m of taidataj) of mydatebase after tsumeawase
  39.             put RETURN after tsumeawase
  40.             set seiretu to item m of taidataj & ","
  41.             set flag to 0
  42.             next repeat
  43.           end if
  44.           put "ﾃ@ﾃ@ﾃ@ﾃ@ﾃ@ " after tsumeawase
  45.           put "  " & item 8 of line value(item m of taidataj) of mydatebase after tsumeawase
  46.           put "/" & item 9 of line value(item m of taidataj) of mydatebase after tsumeawase
  47.           put "  " & item 1 of line value(item m of taidataj) of mydatebase after tsumeawase
  48.           put "  " & item 2 of line value(item m of taidataj) of mydatebase after tsumeawase
  49.           put RETURN after tsumeawase
  50.           put item m of taidataj & "," after seiretu
  51.         end if
  52.       end repeat
  53.       set the textSize of field "ﾃｨﾃｳﾃｳDﾃｯﾂ" to 14
  54.       put tsumeawase after field "ﾃｨﾃｳﾃｳDﾃｯﾂ"
  55.     else
  56.       repeat with n = 1 to xkazu2
  57.         set flag to 1
  58.         repeat with m = 1 to tkazu2 - 1
  59.           if item 11 of line value(item n of x) of mydatebase = item 11 of line value(item m of taidataj) of mydatebase then
  60.             if flag = 1 then
  61.               set tsumeawase to item 11 of line value(item m of taidataj) of mydatebase
  62.               put "  " & item 8 of line value(item m of taidataj) of mydatebase after tsumeawase
  63.               put "/" & item 9 of line value(item m of taidataj) of mydatebase after tsumeawase
  64.               put "  " & item 1 of line value(item m of taidataj) of mydatebase after tsumeawase
  65.               put "  " & item 2 of line value(item m of taidataj) of mydatebase after tsumeawase
  66.               put RETURN after tsumeawase
  67.               put item m of taidataj & "," after seiretu
  68.               set flag to 0
  69.               next repeat
  70.             end if
  71.             put "ﾃ@ﾃ@ﾃ@ﾃ@ﾃ@ " after tsumeawase
  72.             put "  " & item 8 of line value(item m of taidataj) of mydatebase after tsumeawase
  73.             put "/" & item 9 of line value(item m of taidataj) of mydatebase after tsumeawase
  74.             put "  " & item 1 of line value(item m of taidataj) of mydatebase after tsumeawase
  75.             put "  " & item 2 of line value(item m of taidataj) of mydatebase after tsumeawase
  76.             put RETURN after tsumeawase
  77.             put item m of taidataj & "," after seiretu
  78.           end if
  79.         end repeat
  80.         set the textSize of field "ﾃｨﾃｳﾃｳDﾃｯﾂ" to 14
  81.         put tsumeawase after field "ﾃｨﾃｳﾃｳDﾃｯﾂ"
  82.         set the textSize of field "ﾃｨﾃｳﾃｳDﾃｯﾂ" to 14
  83.       end repeat
  84.     end if
  85.   end if
  86.   return seiretu
  87. end
  88.